home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / scripts / copyright.awk < prev    next >
Text File  |  1996-09-12  |  2KB  |  126 lines
  1. BEGIN {
  2.     for (arg=1; arg<ARGC; arg++)
  3.     {
  4.     copyright="    (C) 1995-96 AROS - The Amiga Replacement OS";
  5.     id="    $Id: copyright.awk,v 1.1 1996/08/12 09:59:05 digulla Exp $";
  6.     logtxt="    $Log: copyright.awk,v $
  7.     logtxt="    Revision 1.1  1996/08/12 09:59:05  digulla
  8.     logtxt="    Some scripts
  9.     logtxt="";
  10.     desc="    Desc:";
  11.     lang="    Lang:";
  12.  
  13.     filename=ARGV[arg];
  14.     out=filename ".new";
  15.  
  16.     print "Processing " filename "..."
  17.  
  18.     getline line < filename
  19.  
  20.     if (match (line, /^[ \t]*\/\*[ \t]*$/))
  21.     {
  22. #print "#1"
  23.         done=0
  24.         while (!done && (getline line < filename) > 0)
  25.         {
  26. #print "#2 |" line "|"
  27.         again=1;
  28.         while (again)
  29.         {
  30. #print "#3 again=" again
  31.             again=0;
  32.             if (match (line, /^[ \t]*[(]C[)]/))
  33.             {
  34. #print "#4"
  35.             ;
  36.             }
  37.             else if (match (line, /^[ \t]*\$Id/))
  38.             {
  39. #print "#5"
  40.             ;
  41.             }
  42.             else if (match (line, /^[ \t]*\$Log/))
  43.             {
  44. #print "#6"
  45.             ;
  46.             }
  47.             else if (match (line, /^[ \t]*Desc:/))
  48.             {
  49. #print "#7"
  50.             desc=line;
  51.             while ((getline line < filename) > 0)
  52.             {
  53.                 if (match (line, /^[ \t]*([(]C[)]|\$Id|\$Log|Desc:|Lang:)/))
  54.                 break;
  55.                 else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  56.                 {
  57.                 done = 1;
  58.                 break;
  59.                 }
  60.  
  61.                 desc=desc "\n" line;
  62.             }
  63.  
  64.             again=1;
  65.             }
  66.             else if (match (line, /^[ \t]*Lang:/))
  67.             {
  68. #print "#8"
  69.             lang=line;
  70.             while ((getline line < filename) > 0)
  71.             {
  72.                 if (match (line, /^[ \t]*([(]C[)]|\$Id|\$Log|Desc:|Lang:)/))
  73.                 break;
  74.                 else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  75.                 {
  76.                 done = 1;
  77.                 break;
  78.                 }
  79.  
  80.                 lang=lang "\n" line;
  81.             }
  82.  
  83.             again=1;
  84.             }
  85.             else if (match(line,/^[ \t]*\*\/[ \t]*$/))
  86.             {
  87. #print "#done" line
  88.             done=1;
  89.             }
  90.         }
  91.         }
  92.  
  93.         if (!done)
  94.         {
  95.         print "Error: done is not set"
  96.         }
  97.  
  98.         firstline="";
  99.     }
  100.     else
  101.         firstline=line;
  102. #print "#9" line
  103.  
  104.     print "/*" > out
  105.     print copyright >> out
  106.     print id >> out
  107.     print logtxt >> out
  108.     print desc >> out
  109.     print lang >> out
  110.     print "*/" >> out
  111.     if (firstline!="")
  112.         print firstline >> out
  113.  
  114.     while ((getline line < filename) > 0)
  115.     {
  116. #print "#10" line
  117.         print line >> out
  118.     }
  119.  
  120.     close (out);
  121.  
  122. #print "#11" line
  123.     system ("mv " out " " filename);
  124.     }
  125. }
  126.